﻿Public Class RepresentanteFarmacia
    Inherits Persona
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cAreaRepresentante As AreaRepresentante
    Private cResponsabilidad As String
#End Region

#Region "Constructores"
    Public Sub New()
        MyBase.New(-1, "", "", "", Nothing, Nothing, "", "", "")
        cAreaRepresentante = Nothing
        cResponsabilidad = ""
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pNombre As String, ByVal pApellido As String, ByVal pNroDocumento As Integer, ByRef pTipoDocumento As TipoDocumento, ByVal pFecha As DateTime, ByVal pSexo As String, ByVal pTelefono As String, ByVal pEmail As String, ByRef pAreaRepresentante As AreaRepresentante, ByVal pResponsabilidad As String)
        MyBase.New(pId, pNombre, pApellido, pNroDocumento, pTipoDocumento, pFecha, pSexo, pTelefono, pEmail)
        cAreaRepresentante = pAreaRepresentante
        cResponsabilidad = pResponsabilidad
    End Sub
#End Region

#Region "Propiedades"
    Public Property AreaRepresentante()
        Get
            Return cAreaRepresentante
        End Get
        Set(ByVal value)
            cAreaRepresentante = value
        End Set
    End Property

    Public Property Responsabilidad()
        Get
            Return cResponsabilidad
        End Get
        Set(ByVal value)
            cResponsabilidad = value
        End Set
    End Property


#End Region
End Class

